home *** CD-ROM | disk | FTP | other *** search
/ Cigar Companion Interactive / Cigar Companion Interactive.iso / pc / cigars.dxr / DIRECTORY_73.ls < prev    next >
Encoding:
Text File  |  1997-08-27  |  423 b   |  16 lines
  1. on createDosPop whatValue, myList
  2.   set doIt to checkPopClick()
  3.   if doIt = 0 then
  4.     if voidp(myList) then
  5.       set myList to []
  6.       repeat with x = 1 to 10
  7.         set myVal to translateToWords(value("#" & whatValue), x)
  8.         append(myList, myVal)
  9.       end repeat
  10.     end if
  11.     CreateFieldFromLinList(myList)
  12.     set myField to "dos" && whatValue && "field"
  13.     createPopWindow("popField", myField)
  14.   end if
  15. end
  16.